% V20210224 - 9.20 GW_ADD_SELECTBOX INCLUDE "GW.bas" % Create a page. p = GW_NEW_PAGE() % Prepare title bar string. Title$ = GW_ADD_BAR_TITLE$("Selectbox Example") % Add title to page. GW_ADD_TITLEBAR(p, Title$) % Add descriptive text. GW_ADD_TEXT(p, "This is an example of the SELECTBOX control:") % Array contains two titles and four selectable items. ARRAY.LOAD a$[], "#LOWER CASE", "abc", "def", "#UPPER CASE", "ABC", "DEF" % Now add the control. ctl = GW_ADD_SELECTBOX(p, "Selectbox", a$[]) % Now show the page. GW_RENDER(p) DO % Wait for user action. r$ = GW_WAIT_ACTION$() % Place here any necessary code to process user actions. % Some feedback. POPUP r$ % End when BACK key is pressed. UNTIL r$ = "BACK" PRINT GW_GET_VALUE$(ctl) END "End of Selectbox example."